home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Tools 2
/
Amiga Tools 2.iso
/
disktools
/
cd-rom
/
yacdp
/
arexx
/
dumpvars.yacdp
next >
Wrap
Text File
|
1995-03-09
|
2KB
|
56 lines
/* $VER: 1.2 © 1994 by Frank Würkner. Show all internal variables of YACDP.*/
SIGNAL ON SYNTAX /* check syntax */
SIGNAL ON ERROR /* check if command succeeds */
OPTIONS FAILAT 6 /* ignore warnings */
ADDRESS 'YACDP' /* send to YACDP */
/* -------------------------- BEGIN OF YOUR CODE ------------------------- */
SIGNAL OFF ERROR
OPTIONS FAILAT 11
'GETVAR STATUS'
do i=1 to 38
varname=word('DEVICE BOARD UNIT LUN CDROMVOL AMIVOL CDROMBAL
AMIBAL PLAYMODE REPEATALL REPEATTRACK VIASCSI STEREO LOWPASSFILTER
STATUS GUIOPEN VIASCSIMODE LANGUAGE WINDOWADR NOREQ RETRYS ALTERNATETIME
VENDORID VENDOR PRODUCT REVISION SCSIVER MAXBUSWIDE CDLEN CDNAME BY MAXTRACK
TRACK INDEX BLOCK RELBLOCK SHUFFLELIST PROGRAMLIST',i)
if (i = 20) then do
say '<RETURN>'
pull DUMMY
say '9B'X'0;0H'||'9B'X'J'
end
'GETVAR' varname 'VAL'
if (RC = 0) then do
SAY varname copies(' ',14-length(varname))'=' VAL
end
end
if (STATUS > 2) then do
say '<RETURN>'
pull DUMMY
say '9B'X'0;0H'||'9B'X'J'
'GETVAR MAXTRACK'
do i=1 to MAXTRACK
'GETVAR SONGNAME NUM='i
say i'. track:' SONGNAME
'GETVAR TRACKSTART NUM='i
'GETVAR TRACKLEN NUM='i
say 'starting at block' TRACKSTART '('TRACKLEN' blocks long)'
end
end
/* --------------------------- END OF YOUR CODE -------------------------- */
EXIT
SYNTAX:
SAY "AREXX error at line" SIGL ":" ERRORTEXT(RC)
EXIT
ERROR:
SAY "YACDP error at line" SIGL ":" ERR
EXIT